home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / egascr2.arc / EGA12.SCR < prev    next >
Encoding:
Text File  |  1986-08-05  |  690 b   |  44 lines
  1. N EGA12.COM
  2. A 100
  3. CLD    
  4. MOV    BH,02        ; Get font pointer
  5. MOV    AX,1130
  6. INT    10
  7. PUSH    ES
  8. POP    DS
  9. MOV    SI,BP        ; DS:SI points to font
  10. PUSH    CS
  11. POP    ES
  12. MOV    DI,014C        ; ES:DI is destination
  13. MOV    CX,0E00        ; 14 bytes per char
  14. LODSB            ; Get bytes
  15. STOSB            ; Store it twice
  16. STOSB    
  17. LOOP    0114        ; Keep going 
  18. MOV    BP,014C        ; Points to font
  19. MOV    DX,0000        ; Starting char
  20. MOV    CX,0100        ; Number of chars
  21. MOV    BH,1C        ; Bytes per char
  22. MOV    BL,00        ; Block to load
  23. MOV    AX,1110        ; Load font
  24. INT    10
  25. SUB    AX,AX
  26. MOV    DS,AX
  27. PUSH    [0487]        ; Fix up cursor
  28. OR    BYTE PTR [0487],01
  29. MOV    CX,1619
  30. MOV    AH,01
  31. INT    10
  32. POP    [0487]
  33. MOV    DX,03B4        ; Fix up underline
  34. MOV    AX,1B14
  35. OUT    DX,AX
  36. INT    20
  37.  
  38. R CX
  39. 4C
  40. W
  41. Q
  42.  
  43.  
  44.